Hyper Stacks 1994 May/Hyper Stacks (Pacific HiTech)(1994)[Mac].iso/Fun/Golf Analyst 1.0/card_4003.txt

Text File | 1989-11-06 | 10.3 KB | 416 lines

-- card: 4003 from stack: in.0
-- bmap block id: 4217
-- flags: 4000
-- background id: 3747
-- name: SCORE BOARD


-- part 21 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=400 top=88 right=111 bottom=505
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Course
----- HyperTalk script -----
on mouseUp
  set Lockscreen to true
  go to Card 2
  doMenu "Copy Card"
  doMenu "Paste Card"
  set hilite of button "Fwy1" to false
  set hilite of button "Fwy2" to false
  set hilite of button "Fwy3" to false
  set hilite of button "Fwy4" to false
  set hilite of button "Fwy5" to false
  set hilite of button "Fwy6" to false
  set hilite of button "Fwy7" to false
  set hilite of button "Fwy8" to false
  set hilite of button "Fwy9" to false
  set hilite of button "Fwy10" to false
  set hilite of button "Fwy11" to false
  set hilite of button "Fwy12" to false
  set hilite of button "Fwy13" to false
  set hilite of button "Fwy14" to false
  set hilite of button "Fwy15" to false
  set hilite of button "Fwy16" to false
  set hilite of button "Fwy17" to false
  set hilite of button "Fwy18" to false
  set hilite of button "SS1" to false
  set hilite of button "SS2" to false
  set hilite of button "SS3" to false
  set hilite of button "SS4" to false
  set hilite of button "SS5" to false
  set hilite of button "SS6" to false
  set hilite of button "SS7" to false
  set hilite of button "SS8" to false
  set hilite of button "SS9" to false
  set hilite of button "SS10" to false
  set hilite of button "SS11" to false
  set hilite of button "SS12" to false
  set hilite of button "SS13" to false
  set hilite of button "SS14" to false
  set hilite of button "SS15" to false
  set hilite of button "SS16" to false
  set hilite of button "SS17" to false
  set hilite of button "SS18" to false
  put empty into field "Score1"
  put empty into field "Score2"
  put empty into field "Score3"
  put empty into field "Score4"
  put empty into field "Score5"
  put empty into field "Score6"
  put empty into field "Score7"
  put empty into field "Score8"
  put empty into field "Score9"
  put empty into field "Score10"
  put empty into field "Score11"
  put empty into field "Score12"
  put empty into field "Score13"
  put empty into field "Score14"
  put empty into field "Score15"
  put empty into field "Score16"
  put empty into field "Score17"
  put empty into field "Score18"
  put empty into field "PT1"
  put empty into field "PT2"
  put empty into field "PT3"
  put empty into field "PT4"
  put empty into field "PT5"
  put empty into field "PT6"
  put empty into field "PT7"
  put empty into field "PT8"
  put empty into field "PT9"
  put empty into field "PT10"
  put empty into field "PT11"
  put empty into field "PT12"
  put empty into field "PT13"
  put empty into field "PT14"
  put empty into field "PT15"
  put empty into field "PT16"
  put empty into field "PT17"
  put empty into field "PT18"
  put empty into field "Par1"
  put empty into field "Par2"
  put empty into field "Par3"
  put empty into field "Par4"
  put empty into field "Par5"
  put empty into field "Par6"
  put empty into field "Par7"
  put empty into field "Par8"
  put empty into field "Par9"
  put empty into field "Par10"
  put empty into field "Par11"
  put empty into field "Par12"
  put empty into field "Par13"
  put empty into field "Par14"
  put empty into field "Par15"
  put empty into field "Par16"
  put empty into field "Par17"
  put empty into field "Par18"
  put empty into Field "IN"
  put empty into Field "OUT"
  put empty into Field "Total"
  put empty into Field "Greens"
  put empty into Field "Fairways"
  put empty into Field "Sand Saves"
  put empty into Field "Putts"
  put empty into Field "Date"
  put empty into Field "Over Par"
  put empty into Field "Eagle"
  put empty into Field "Birdie"
  put empty into Field "Par"
  put empty into Field "Bogey"
  put empty into Field "Double Bogey"
  put empty into Field "Others"
  put empty into Field "Course Name"
  put empty into Field "Rating"
  set Lockscreen to false
end mouseUp



-- part 22 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=404 top=122 right=144 bottom=504
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Update Board
----- HyperTalk script -----
on mouseUp
  set Lockscreen to true
  set cursor to 2
  sort descending datetime by field "Date"
  if the number of cards > 21 then
    go to card 21
    repeat the number of cards - 21
      doMenu "Delete Card"
    end repeat
  end if
  sort numeric by field "Total"
  put 0 into num
  put 0 into totscore
  put 0 into totfairways
  put 0 into totss
  put 0 into totgreens
  put 0 into totput

  go to next card
  put field "total" into best

  repeat number of cards - 1
    add 1 to num
    put field "Total" - field "Rating" into temp
    if temp < 0 then put 0 into temp
    if num <= 10 then add temp to totscore
    add field "Fairways" to totfairways
    add field "Sand Saves" to totss
    add field "Putts" to totput
    add field "Greens" to totgreens
    go to next card
  end repeat

  sort descending datetime by field "Date"
  put 0 into num2
  put 0 into fiveholes
  put 0 into tenholes

  repeat the number of cards - 1
    add 1 to num2
    put field "Total" - field "Rating" into temp
    if temp < 0 then put 0 into temp
    if num2 <= 5 then add temp to fiveholes
    if num2 <= 10 then add temp to tenholes
    go to next card
  end repeat

  sort numeric by field "Total"
  put fiveholes * 9.6 into fiveholes
  put tenholes * 9.6 into tenholes
  put totscore * 9.6 into totscore
  if num > 5 then
    divide fiveholes by 5
  else
    divide fiveholes by num
  end if
  if num > 10 then
    divide tenholes by 10
    divide totscore by 10
  else
    divide tenholes by num
    divide totscore by num
  end if
  put round(fiveholes) / 10 into field "Five Holes"
  put round(tenholes) / 10 into field "Ten Holes"
  put round(totscore) / 10 into field "USGA SCORE"
  put best into field "BEST"
  put round(totfairways/num) into field "Fairways"
  put round(totss/num) into field "Sand Saves"
  put round(totgreens/num) into field "greens"
  put round(totput/num) into field "Putts"
  set Lockscreen to false
end mouseUp



-- part 24 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=21 top=118 right=142 bottom=46
-- title width / last selected line: 0
-- icon id / first selected line: 1014 / 1014
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Previous
----- HyperTalk script -----
on mouseUp
  visual effect scroll right
  go to previous card
end mouseUp



-- part 25 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=353 top=118 right=142 bottom=378
-- title width / last selected line: 0
-- icon id / first selected line: 1013 / 1013
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseUp
  visual effect scroll left
  go to next card
end mouseUp



-- part 26 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=314 top=118 right=144 bottom=345
-- title width / last selected line: 0
-- icon id / first selected line: 2478 / 2478
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: About
----- HyperTalk script -----
on mouseUp
  set LockScreen to true
  set visible of card field "About2" to true
  set visible of card field "About" to true
  set Lockscreen to false
end mouseUp



-- part 27 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=63 top=118 right=144 bottom=94
-- title width / last selected line: 0
-- icon id / first selected line: 21700 / 21700
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: go Home
----- HyperTalk script -----
on mouseUp
  go home

end mouseUp



-- part 28 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=134 top=22 right=38 bottom=323
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: date


-- part 29 (field)
-- low flags: 81
-- high flags: 0004
-- rect: left=80 top=70 right=279 bottom=509
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: About
----- HyperTalk script -----
on mouseUp
  set LockScreen to true
  set visible of card field "About2" to false
  set visible of card field "About" to false
  set Lockscreen to false
end mouseUp



-- part 30 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=135 top=70 right=103 bottom=460
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 20
-- text size: 24
-- style flags: 256
-- line height: 32
-- part name: About2
----- HyperTalk script -----
on mouseUp
  set LockScreen to true
  set visible of card field "About2" to false
  set visible of card field "About" to false
  set Lockscreen to false
end mouseUp



-- part contents for background part 6
----- text -----
81

-- part contents for background part 3
----- text -----
10.1

-- part contents for background part 4
----- text -----
10.1

-- part contents for background part 5
----- text -----
10.1

-- part contents for background part 7
----- text -----
56

-- part contents for background part 8
----- text -----
50

-- part contents for background part 9
----- text -----
61

-- part contents for background part 10
----- text -----
67

-- part contents for card part 29
----- text -----



   This stack is FREE!!!  If you like it send me a line or two about
   your favorite home courses.  I'm a graduate student in CS who
   loves to Golf and will be graduating in May.  I hope this stack
   will help you iron out your game.  Mail replies to:

                        US Mail:   Erik Bleyl
                                        23-8 Copeley Hill
                                        Charlottesville, VA  22903
                        Email:      [e-mail]

-- part contents for card part 30
----- text -----
Golf Analyst by Erik Bleyl